#import data frame
file_path <- "/Users/lukas/Downloads/cohort.xlsx"
df <- read_excel(file_path, sheet = "cohort", na = "#N/A")
#import data frame
required_packages <- c("readxl")
# Install and load packages if not already installed
for (package in required_packages) {
if (!requireNamespace(package, quietly = TRUE)) {
install.packages(package)
}
library(package, character.only = TRUE)
}
file_path <- "/Users/lukas/Downloads/cohort.xlsx"
df <- read_excel(file_path, sheet = "cohort", na = "#N/A")
#3. Results
#3.1. Patient characteristics
source("3.1_Patient_characteristics.R", local = TRUE)
#3. Results
#3.1. Patient characteristics
source("3.1_Patient_characteristics.R", local = TRUE)
file_path <- "/Users/lukas/Downloads/cohort.xlsx"
df <- read_excel(file_path, sheet = "cohort", na = "#N/A")
#3. Results
#3.1. Patient characteristics
source("3.1_Patient_characteristics.R", local = TRUE)
df <- read_excel(file_path, sheet = "cohort", na = "#N/A")
#3. Results
#3.1. Patient characteristics
source("3.1_Patient_characteristics.R", local = TRUE)
#3. Results
#3.1. Patient characteristics
source("3.1_Patient_characteristics.R", local = TRUE)
#3.2.2 PET scanner
source("3.2.2_scanner.R", local = TRUE)
#import data frame
required_packages <- c("readxl")
# Install and load packages if not already installed
for (package in required_packages) {
if (!requireNamespace(package, quietly = TRUE)) {
install.packages(package)
}
library(package, character.only = TRUE)
}
file_path <- "/Users/lukas/Downloads/cohort.xlsx"
df <- read_excel(file_path, sheet = "cohort", na = "#N/A")
#3. Results
#3.1. Patient characteristics
source("3.1_Patient_characteristics.R", local = TRUE)
#3.2. Association of biological variables and semiquantitative PET parameters
#3.2.1 SUV
source("3.2.1_SUV.R", local = TRUE)
#3.2.2 PET scanner
source("3.2.2_scanner.R", local = TRUE)
#3.2.3a Characteristics of all patients
source("3.2.3a_characteristics.R", local = TRUE)
#3.2.3b Characteristics of subgroup (patients scanned with GE Discovery 690)
source("3.2.3b_characteristics_subgroup.R", local = TRUE)
#3.2.4 Correlation of BMI and COPD on SUV
source("3.2.4_correlation_bmi_copd.R", local = TRUE)
#3.2.5a Multilinear regression
source("3.2.5a_multilinear_regression.R", local = TRUE)
s
#3.2.5b Multilinear regression of subgroup (patients scanned with GE Discovery 690)
source("3.2.5b_multilinear_regression_subgroup.R", local = TRUE)
